functor
import
   Tk Browser
define

   W={New Tk.toplevel tkInit(width:150 height:150)}

   B1={New Tk.button tkInit(parent: W
                            text: "Press me!"
                            action: proc {$}  
                                       {Browser.browse pressed}
                                    end)}
   
   B2={New Tk.button tkInit(parent: W
                            bitmap: error
                            action: W#tkClose)}

   {Tk.send pack(B1 B2 fill:x padx:1#m pady:1#m)}

%   {Tk.send pack(b(Frames) side: left padx: 4 pady: 4)}
end
